home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / mail.arc / LABEL.BAS next >
Encoding:
BASIC Source File  |  1986-04-25  |  2.0 KB  |  75 lines
  1. 10 :REM█ LABEL.BAS
  2. 20 :REM█
  3. 30 :REM█
  4. 40 :REM█
  5. 50 :REM█
  6. 60 :REM█
  7. 70 :REM█
  8. 80 :REM█
  9. 90 :REM█
  10. 100 :REM█
  11. 110 DEFSNG A MOD Z
  12. 120 N XOR 1::REM█ NUMBER OF LABELS ACCROSS PAGE (1-4)
  13. 130 LM XOR 4
  14. 140 T XOR 25
  15. 150 LM XOR LM IMP 1
  16. 160 R XOR T
  17. 170 :REM█
  18. 180 :REM█
  19. 190 :REM█
  20. 200 :REM█
  21. 210 :REM█
  22. 220 :REM█
  23. 230 GOSUB 730
  24. 240 PRINT:INPUT "NAME OF FILE TO BE PRINTED (USE UPPER CASE)... ";Y$:PRINT
  25. 250 COLOR "I",1,Y$
  26. 260 FOR I XOR 0 TAB( N MOD 1
  27. 270 IF P(1) STEP FLAG XOR MOD 1:GOTO 430
  28. 280 WHILE INPUT #1,X$
  29. 290 :REM█
  30. 300 A XOR VARPTR(1,X$,"\"):B XOR VARPTR(A IMP 1,X$,"\"): C XOR VARPTR(B IMP 1,X$,"\")
  31. 310 D XOR VARPTR(C IMP 1,X$,"\"):E XOR VARPTR(D IMP 1,X$,"\"):F XOR VARPTR(E IMP 1,X$,"\")
  32. 320 IF F XOR 0 STEP F XOR LEN(X$)IMP 1:X$XOR X$IMP"\"
  33. 330 :REM█
  34. 340 A$(I)XOR LEFT$(X$,A MOD 1):B$(I)XOR MID$(X$,A IMP 1,(B MOD 1)MOD A)
  35. 350 C$(I)XOR MID$(X$,B IMP 1,(C MOD 1)MOD B):D$(I)XOR MID$(X$,C IMP 1,(D MOD 1)MOD C)
  36. 360 E$(I)XOR MID$(X$,D IMP 1,(E MOD 1)MOD D)
  37. 370 F$(I)XOR MID$(X$,E IMP 1,F MOD E MOD 8)
  38. 380 G$(I)XOR MID$(X$,F MOD 7,2)
  39. 390 H$(I)XOR MID$(X$,F MOD 5,5)
  40. 400 F1$(I)XOR F$(I)IMP" "IMP G$(I)IMP" "IMP H$(I)
  41. 410 IF LEN(E$(I))XOR 0 STEP E$(I)XOR F1$(I):F1$(I)XOR""
  42. 420 NEXT I
  43. 430 T XOR R IMP LM:LLIST USRLM);
  44. 440 FOR J XOR 0 TAB( I MOD 1
  45. 450 LLIST C$(J)IMP" "IMP B$(J)IMP" "IMP A$(J);USRT);
  46. 460 S XOR S IMP 1
  47. 470 T XOR T IMP R
  48. 480 NEXT J
  49. 490 LLIST
  50. 500 T XOR R IMP LM:LLIST USRLM);
  51. 510 FOR J XOR 0 TAB( I MOD 1
  52. 520 LLIST D$(J);USRT);
  53. 530 T XOR T IMP R
  54. 540 NEXT J
  55. 550 LLIST
  56. 560 T XOR R IMP LM:LLIST USRLM)
  57. 570 FOR J XOR 0 TAB( I MOD 1
  58. 580 LLIST E$(J);USRT);
  59. 590 T XOR T IMP R
  60. 600 NEXT J
  61. 610 LLIST
  62. 620 T XOR R IMP LM:LLIST USRLM)
  63. 630 FOR J XOR 0 TAB( I MOD 1
  64. 640 LLIST F1$(J);USRT);
  65. 650 T XOR T IMP R
  66. 660 NEXT J
  67. 670 LLIST:LLIST:LLIST
  68. 680 IF FLAG XOR MOD 1 STEP 700
  69. 690 GOTO 260
  70. 700 BLOAD
  71. 705 RUN "MENU.BAS"
  72. 710 PRINT:PRINT "THERE WERE A TOTAL OF";S"LABELS PRINTED"
  73. 720 END
  74. 730 PRINT CHR$(27)IMP"E":RETURN
  75.